هة الرحمان الرحيم 


| 


/ 


ير مجه 


قو 


احد البباتانت 


مقدمة الكتاب بقلم الأستاذ / سامح كامل 


مؤسس موقفع تقنية البرمجة بدون كود العربى 


بسم الله الرحمن الرحيم وبه نستعين ونصلى ونسلم على نبينا الكريم سيدنا محمد 
اشرف الخلق أجمعين. 


فى عالم مليء بالأحداث المتلاحقة والأمواج العاتية التي تهيج فى لحظة لتهدم بناء 
ضخم وتكشف عن ميلاد أخر › فى هذا العالم المثير والمخيف أحيانا حيث تجده 
على هيئة ملاك وأحيانا على هيئة شبح › فى عالم البرمجة وفى وسط التصادم 
والتنافس والتسابق ولدت فكرة البرمجة بدون كود كبناء ضخم وضعت لبناته 
الأولى منذ خمس سنوات على يد الشاب المصري الطموح المهندس محمود سمير 
فاید. 

كل إنسان دائما يشعر ببعض الأحلام › ربما تكون أحيانا أحلام يقظة وبعيدة جدا عن 
الواقع ولكن لا تستهين بأحلام اليقظة التى يستحيل تحقيقها › فهذا الحلم يمكن أن 
يدفعك ويقوى من عزيمتك لتحقيق حلم أكبر وأكثر واقعية. 

هذا الحلم الذى راود فكر المهندس محمود ريبما لم يفكر فى لحظتها كيف ومتى 
يمكن أن يتحقق ولكن كما يقولون الحاجة أم الاختراع › كلام صحيح ولكن الحاجة 
بدون فكر لن تمكنك من انجاز ای عمل › فلقد وهبنا الله سبحانه وتعالی عقول ولکن 
بدرجات وقدرات متفاوتة › فمنا من له إمكانيات بدنية عظيمة ولكن ربما لا يستطيع 
مواجهة فأر يخشاه ويرتعد حينما يراه » وعلى العكس تجد من لا يمتلك الجسم 
والبناء القوى ولكن يمتلك العقل والفكر والقدرة على الإبداع. 

فى هذا البحر الخضم أبحر المهندس محمود ليبدأ رحلته الشاقة منذ خمس سنوات 
بجهد وفكر ومشقة وصبر وعزيمة ومقاومة ودفاع عن مبدأً وفكرة ليصل بنا الآن 
إلى عالم منفرد بذاته مميز فى صفاته متواصل مع الآخرين › عالم البرمجة بدون 
کود. 

ومن الواجب علينا الا نتركه بمفرده يواجه صعوبات التحدي ويبنى هذا البناء 
الشاهق فقد تعاونا سويا ومعنا العديد من الإخوة الكرام العرب والأجانب لنضع 
أيدينا بيد بعض ونسعى سويا فى سبيل إعلاء شان هذا المشروع العربي المميز. 


بعد مدة من محاولات المهندس محمود نشر مشروعه وتوصيله للآخرين وجهاد 
شاق فى مواجهة المعارضين والرافضين للفكرة أسسنا موقع البرمجة بدون كود 
العربي لنبدأً منه بداية صحيحة ومرتبة ومنظمة لنشر وتعليم وتوصيل هذه التقنية 
للآخرين. 

واجتهد كل منا فى مجاله بإمكانياته وقدراته لعمل الشروحات والدروس والكتب 
الت طرف سوا + سط مكاضر ع اما :عة 

وها نحن ألان بصدد الكتاب الأول لآخونا أمين دبابسية لتعليم برمجة قواعد البيانات 
بعد مشاركات مميزة فى وضع العديد من الأمثلة التعليمية وشروحات الفيديوء فعلى 
بركة الله نبدأً. 


كلمة المؤلف 


- إن مانعيشه الآن من تطور مستمر في عالم البرمجة هو نتيجة 
لتوفر الأدوات التي نحتاحها لتطوير التطبيقات ومنها التطبيقات 
التجارية والتي تجدها في المرتبة الأولى فى السوق العربى. 


- وان تقنية البرمجة بدون كود لا تقل فى الشأن عن باقي اللغات 
في مجال تطوير فواعد البيانات ولكن الخاصية التي تتميز بها هي 
أنها تبعدك عن شي ء اسمه كتابة الكود نظرا لما تكتسبه من 
معالجات (هذا لا يعني انك لا تستطيع استعمال الكود أتناء تطوير 
برامجك داخل تقنية البرمجة بدون كود بل تستطيع ذلك ). 


- وتجد وخاصة في العالم العربي إقبال كبير على التطبيقات 
التجارية والتي تعتمد على قواعد البيانات فإذا تصفحت مثلا موقع 
للكتب الالكترونية فانك تجد أكثر الكتب في ركن قواعد البيانات. 


- وسبب اختياري لكتاب برمجة فقواعد البيانات هو اني قد وحدت 
متعة كبيرة في تطوير برامج فواعد البيانات داخل تقنية البرمجة 
کود نظرا لما تقدمه من خدمات عديدة منها : 
- التعامل مع اكثر من نوع من فواعد البیانات ا الأكسس...الخ 
: - إنشاء التقارير فهو أمر مهم حدا خاصة في مجال تطوير البرامج 
التجارية للمؤسسات 
3 - سهولة التعامل مع قاعدة البيانات من داخل البرنامج (الإضاقةء 
الحذف. التحديت. البحت...الخ ). 


- وحيث ان المبرمج يبحث دائما عن الأداة السهلة والسريعة لإنتاج 
برامجه فإنى احد في تقنية البرمجة بدون كود السرعة في بناء 
البرامج والمتعة أثناء العمل وقوة البرامح التي يتم إنتاحها. 


- أهلا بك أخي العزيز في هذا الكتيب الصغير ولكن 
يمكنك اعتباره باب واسعا لدخول عالم برمحة قواعد 
البيانات بتقنية البرمحة بدون كود. 

- كالعادة دائما نقوم بفتح بيئة البرمحة بدون كود أي 
إصدار ونحن سوق نعمل على الإصدار الأخير وهو : 

PWCT 1.4 (Nova) 

سوف تمر بعدة مراحل في هذا الكتاب اول مرحلة وهي 

المشروع بعد فتح ٥۷٣۲‏ سوف تظهر ا 


ORE # EE FT K LUN N OF 0 § PFP D0 F I @ 


| File: NoName” 
Data Unit: Atoms 
ا‎ ê Data Unit : Atoms 
| FF Data Unit : Vessels 
| Fh Data Unit : Reactions 
| Code Unit : Circuits 


Goal 


JB RPI Unit : Goals 


Transporter 


Interaction 


Ready 


انك اخی الفزیز تقرف گيق تقوم تانشاء مشرو 
(المشروع في تقنية البرمجة بدون كود يطلق عليه 
باسم الخادم 5€۲۷۴۲) في تقنية البرمجة بدون كود من 


Programming without coding: technology 


Cj O # bE Ff KLM NOP a sS FOF | @ 


Fa ile 

gewer. Units Window‏ ت 

2 "File : NoName” Î New File 

ص ص ص 
FF | Template‏ ا Data Unit : Atomz‏ م 


Atoms 
nit : Wessels 
nit : Reactions onsole Application - With Coding 
it : Circuits GUI Application - With Coding 
nit : Wetos Console Application - Without Coding 


Goal : 


nit : Channels 
nit : Connections 
JÊ RPWI Unit : Goals 


ÊÎ Close 


Interaction Transporter 


=| 
MW 
Bi 
| 
ا‎ 


بعد اختیار نوع المشروع وهو ١0۸|اicaاممA Gui‏ سوف 
المجلد الخاص به واعطاء المشروع اسم كمافي 
الصورة التالية ٠‏ 


CREATE SERVER 


EES O û i E: 


neme FE] 
ل‎ 
nk 


تم بحمد الله وعونه الانتهاء من انشاء المشروع 
الان سوف نقوم بانشاء النافذة الرئيسية للبرنامج 


ونضع عليها الادوات التي نحتاجما 


IM Programming without coding technology 
File Edit Data Code Veto RPWI Transporter Package Tools Help 


CLGEEHEE 4 EE FF KL MM N O0 FF û4 Ss P DD F FT Bm 


RPWI Environment (Goal Designer] 


Goal: [Man ® Goal Designer 


Start Point (NOT STEP} 1 The First Step 


Isolate you from syntax 


[New step | j &ğ Delete Step [Interact 3 


1 ÊÊ Edit Step | ا لط [ 1 ااا‎ 1 [JlIanare (Disable) Step 


Ser 
EF 
gE 
EF 
El 
@ f 
® 
@ 
3 


سا 
ت 
= 
= 
8=[ 
LL‏ 
© 
0 
= 
ج 
= 
0 
ی 
5 
ي 
eh‏ 
= 


Ready 


عند الضغط على زر التفاعل 1٣٤۲١2٤‏ سوق تظهر لنا 
مكونات لغة البرمجة التفاعلية محمود. 

سوق نقوم بانشاء النافذة الرئيسية للبرنامج من 
Define New WindOW رتة†i ۾»î WİINdOWS‏ 


Kl Interaction Using T[ransporter - Programming without coding technology 
M File Edit Data Cade Veto RPWI Transparter Package Taals Help EE 


Û E $ BE E f KLM NOP O0 8S8 FP D0 F ITI mM 


ng Transporter 
2 Interaciion USIÎ 
ن‎ 
ج‎ 
س‎ 
سد‎ 
| Define New Window 
E: Top 10 width 500Û 
= e Ta Define new winda , youı need at least to assign Yale to 
0 Left 10 Height 400 Top,Leftiyidth, Height & Mame 


| اسم أيقونة النافذة N‏ عنوان التافذة (| Window Properties‏ | 


| 
Name yin 1 
| 


1 


"Programming vYithout Co. 


| WJ windan loon: 'PWCTICON" LE 
[INO SYSMENLI IHG MAI MIZE 


14 4 ۳ ۴۱ Page1 ك‎ Again Cancel 
2 


O SHU LIND AUTORELEASE 


LITOPMOST LIND MIMIMIZE 


Interaction ا‎ 


بعد التعديل في خصائص النافذة نضغط )0 سوف 
اظ نوليد خظوة فاعلية قى شجرة البرنافة 


MF Start Point (NOT STEP} 
E1... Ej The First Step 


الآنن سوق نقوم بانشاء الأدوات التي نحتاجهِا فقي 
البرنامج وهي كالاتي : 

1 - اداة مsا0اB‏ لعرض البيانات الموجودة فقي قاعدة 
البيانات 

2 - زر أمر لإضافة سجل لقاعدة البيانات 

3 - زر امر لحذفق سجل من قاعدة البيانات 

4 - زر امر للخروج من البرنامج 

نبدا بالاداة ع€Ws٥اB‏ من sاەContr‏ تم نختر 6rOWSê€‏ 


„Components, Browser - Programming without coding technology 
Û & E ط‎ EH ? K LM N oP O Ss FP D0 F 1! Ê 


Components Browser 


| 
| Select Domain : Lomponents in Domain 


Server | 


Mahmoud Programming Larvguage | Date Picker Alf 

User Interface Check Button : 
الا‎ Application - || | Progress Bar 

Timer 

5ّ | RichEditBox 

| Grid Control | 

Tab 

Tab Page | 

TBE 


Goal 


Interaction Transporter 


Slider 

| Frame 

| HyperLink 
Console Application Animate Box 
Print Text 

Programming Basics | Define Splitbox 8 
Control Structure 1 9 | 


| Search ١ 1 


| 


| 
r 
i 
EL 
3 


بعدها سوف تظهر لنا نافذة خصائص الاداة 8۲0۷56 


Interaction Using TranSporter 


Dafinsa Browse 


الحقول الموجودة 


العروض 

HEEE‏ ل سض وین الحنول) ‏ 1ھو سط 
Width Height‏ 

س ١|‏ م 5ود نه | 


ر 100,100,100{ ™" "Phone", "Addre.)‏ س 


*  {fpwctzname","pwet->ph) 


| "pwet" wel 


o ا‎ mm || 
1 
E EKE EDE EE 


- بعد التعديل في خصائص الأداة نضغط 0 الآن 
سوق نقوم بانشاء أزرار الأوامر كاعادة دائما من 
Button yiziControls‏ . 

- عندها سوق تظهر لنا نافدة خصائص زر الامر بعد 
التعديل في الخصائص لا نضغط على زر )0 بل 
نضغط على زر ۸921١‏ وهذا للسرعة في العمل 
والاختصار بشرط ان تقوم بالتعديل على الخصائص 
عند الضغط على الزر ۸931١‏ لانه بمجرد الضغط 
عليه فانه ينفذ الخطوة لكن لا يغلق نافذة الخصائص 
تابع معي في الصورة التالية 


Interaction USing TranSporter 


Define new button 


a —-— 

Properties (Optional) 

LID [I HelpID 

Awa Height TI Fielure "FileName .BMP" 

a ea e" F KS ECS 

- لاحظت عند الصغط على زر ١921ه‏ فانه لا بغلق 

افده الخضانض ولك دقوم قير الخطوة الان تقوم 
بانشاء الزر الثاني بالتعديل على النافذة السابقة 

Interaction Using Transporter 


4 


Define new button 


Name EEE 
Properties (Opiional)] 
em O [FDeelhecord] | em | 


4 


0) وفي الاخير نضغط‎ 
Interaction Using Transporter 


| Define new button 


Hame 
close 
Properlies (Optional) 
ll width ll Height [Picture "FileName BMP" 
IF a Text Position % 
on arial Up E 


4 ۴ 


انشاء الأحداث 


- بعد إنشاء الأدوات ألازمة للبرنامج الآن جاء دور 
الأحداث وفي هذه الأحداث سوق نستدعي الإجراءات. 
- نبد مع أول حدث وهو حدث تحميل النافذة عند 
حدوته يقوم البرنامج بفتح قاعدة البيانات اولا نقوم 
بتحدید sأeven Window‏ من شجرة البرنامج 


j} Start Point (NOT STEP) 
E] The First Step 


الان نختر من مستعرض المکونات ۷۸۵40۷ تم نختر 
Window Events‏ 


Define New Window 
[Window Events 

Window Class 

LoadiArctivate WindowIF orm 

Window!Object Right-To-Left 

Erase Window 

On Key 

Set AutoAdjust ûn 


Set AutoAdjust OFF 
Get Window Handle 


سوف تظهر لنا نافذة نعدل عليها كما يلى : 
Interaction Using Transporter‏ 


Window Events اسم اللاجراء‎ 


RELEASE 


|| Action Type 
INTERACTIVECLOSE = Messages (Information) 2 


Call Resistance 


Lall Function fProcedure 


" ED BH 


- الآن نقوم بانشاء الأحداث الخاصة بأزرار الأوامر 

1 - زر الإضافة سوق ينادي إجراء اسمه "۷2۵٩4‏ 

2 - زر الحذف سوف ينادي إجراء اسمھa mydelete‏ 

3 - زر الخروج سوق ينادي إجراء اسمه myexit†‏ 
يفضل عدم إعادة اسم الإجراء أكثر من مرة لتفادي 
الأخطاء في البرنامج 

اولا نحدد من شجرة |لبرaliڄج button events‏ 


E... Rm e 
“© EES 


الان من مستعرض المکونات نختر ۴۷6٣٤5‏ تم نختر 
Button Events‏ 


Interacilon Using TranSporiter 


اسم الاجراء 


Button Events 


س 


Event :- CLICK Aztion Data myadd() 
GOTFOCUS e : 
LOSTEOCUS E (Inforrmatiorı) 
Call Resistance 
Call FunczlilorPraocedura 
COO e 


وهكذا مع الازرار المتبقية 


Call Resistance 


Call Function /Procedure 


۴ 


Action Data mydelete(j] 


Action Tre Message (Information) 2 


Button Events 
CLICK 


GOTFOCUS 
LOSTFOCUS 


Interaction Using Transporter 


Button Events 


CLICK a Action Daka myexitl) 


GOTFOCUS 
LOSTFOCUS 


کک 


Message (Information) اس‎ 
Call Resistance 


Call FunctlanfProcedure 


ction Type 


1 


E 


ICIS TIRE TE Cm Cx Cl 


N ۶ 


- بحمد الله وعونه تم الانتهاء من خطوة إنشاء 
الأحدات الآن جاء دور الإجراءات 

- لکي يکون البرنامج اكثر تنظيم سوف نقوم بانشاء 
خطوة جديدة خاصة بالاجراءات نحدد على أاSta‏ 
(pPعSte Point )No‏ من لوحة المفاتیح نضغط علی 

CR +‏ لانشاء خطوة جديدة سوف يظهر لنا 

مربع حوار لإعطاء الخطوة الجديدة اسما متلا 

Procedure lpuwسwi‎ 

- نبدأً مع أول إجراء وهو فتح قاعدة البيانات مر 
مستعرض المكونات نختر Structure PrO0gra Ming‏ 


(البرمحة الھیکلية( ۾ نخiۃتر Define Procedure‏ 
لإنشاء حدتث 


Components Browser 


Select Domain : Components in Domain 


[Deine Procedure 


Lefine FUMCION 


Scope of Variable 


Return Value 
wall Procedure 
Call Function 
آ‎ Release PublicPrivate Variable 
Î | Set Procedure To 


ed PTE aru 
DoubleS rear Server] Programmirug 
2 Data Unit 
Atoms 
Domain Electrons list 
Virtual Data Files be 


Interaction Using Transporter 


Define Procedures 


Procedure Hame 


0 
ES ۷‏ ط 0 4 
- الإجراء التالي وهو خاص بزر الإضافة 
Interaction Using Transporter‏ 
Define Procedure‏ 


Procedure N ame 


٣ 


ICICI TE Cm) CI Cl 


- الزر التالي وهو خاص بزر الحذفق 


Interaction Using TranSporter 


Define Procedure 


Procedure H ame 


myexcit 


[1 Parameters 


ه نبدأً مع أول اجراء وهو فتح قاعدة البيانات في 
هذه الخطوة سوف نستغل قوة تقنية البرمحة 
بدون كود قي التعامل مع قاعدة البيانات 
وتتمتل في أن شاء جدول قاعدة البيانات 
تلقائیا اذا لم يكن موجودا عبر خطوات تابع 
معي 

من مستعرض المکونات نختر ۲۶ع‌d|اهF‏ / File‏ 
۾ iخaر Check File‏ 


Components Browser 


select Domain : omponents in Domain 


Programming Basics + ÎÎ | Get EXE File Name 
Control Struchure ` | Get Current Folder 
i Get Desktop Folder 
ene Gel MyDocuments folder 
E Get ProgramFiles folder 
e 1 _ | | Get Startup folder 

TT Get System folder 
Get Temp folder 

Progr Get Windows folder 

Structure Programming 


Object Oriented Programming (ooP) 
DoubleS (Super Server) Programming 
Data Unit 


Atoms 
Damain/Electrons lst 
Virtual Data Files 


ونعدل في النافذة كما يلي كما يلي : 
Interaction Using Transporter‏ 


| Check File (ls fila found ?) 


> 


1 

14 i | [Page1 “| [aan _) [[_o« J[ cancel | 

- بعدها سوق نقوم باستعمال جحملة الشرط IF‏ 

وقي هذه الخطوة إذا لم يتحقق الشرط وهو عدم 

وحود الملف طهك.أعسم يعني الشرط يساوي عكاج۴ 

فان البرنامج سوف يقوم بإنشاء ملف قاعدة البيانات 

تلقائيا (هل رأيت قوة تقنية البرمجة بدون كود في 

التعامل في قواعد البيانات بسم الله ما شاء الله). 

Control StruCtUr€ رiخ†i‎ تlنوكمل| من مستعرض‎ - 
If Statement ۾ نختر‎ 


dling (Try - Catch J 


Interaction USing TranSporter 


IF Statement 


IF : Condition checkfilla = false ۉĞ‎ 


[J Else 


٣ 


ICT CFI Bl Caen J [Lox Jf caren) 


داخل الكود بلوك سوف ننشىء ان شاء الله الجدول 


Components Browser 


Components in Domain 


Select Domain : 


Add Table Field 


Interaciion USing TranSporter 


-E 


Table Name 


اسم الجدول الذي سوف يقوم البرنامج بانشاءه 


1 
ICT TE Cm Eee 


- الآن سوق نقوم بانشاء الحقول للجدول 


Components Browser 


Select Domain : Components in Domain 


a ^Î LEreate Table 
E EEE 


نقوم الآن بادخال أسماء الحقول 


Interaction USing Transporter 


| Add Table Field 


د 
TCT OF Ie 777 EAC em‏ 


mE 
TI CT OF Her TTT EC E 


Interaciion Using TranSporter 


Aad Table Field 


Type 
Length 


Decirnal 


٣ 
1 “)[> 2 
هذا إذا كان الجدول غير موجود فاذا کان موجود‎ - 
فان البرنامج سوف يقوم بفتح مباشرة‎ 


Components Browser 


Gomponents in Domain 


| Select Area ك‎ 


ا 


Golo 

Locate For 

Gontinue ( Locate next record} 

Sel Filter To 

Delete Current Record (Mark for deletion) 
Pack 

Gount 

WOpY T0 

Get Information 


Interaction Using TranSporter 


Open Table 


Table Name 


E EKE DS E 


برمجة زر الإضافة 
- 


- ننتقل الان الى برمجة زر الاضافة الذي سوف 
ينادي اجراء اسمه ۳۷۵۵۵ بالطبع سوق نبرمج 
الخطوات داخل الكود بلوك )0ا8 م0٤‏ الخاص 


الا جرا 


Components Browser 


Select Domain : omponents in Domain 


Data Unit Selec Area 
3... Atoms Open Table 
Damain/Electrans list Close Table 


Golo 

Locate For 

wontinue [ Locate next record) 

Set Filter To 

Delete Current Record (Mark for deletion) 


بعد اختيار المجال ع۸۲ أععامS‏ سوق تظهر لنا صفحة 


البيانات وهو pWCt‏ 


Interaction Using TranSporter 


. Select Area 


اسم قاصة البباناث 


٣ 
ICO 
الان سوق نطلب من البرنامج ان يقوم باضافة‎ - 
سحل جديد الى قاعدة البيانات‎ 


Components Browser 


Components Browser 


Select Domain : Components in Domain 


| Recall 


Sel Exclusive 
| | Greate Index File 
Sel Index To 
|j | Reindex 
| | Close Database 


RecordSet 
Crystal Reports 10 


Tools & Extensions Replace 
Networking | | öet Delete 


Search 
rn 


الآن من مستعرض المكونات نختر نختر 835€× تم 
نختر Get Infomati0n‏ 


Components Browser 


Components Browser 


select Domain : wamponenis in Domain 


Reactions AllÎÎ | Select Area 
| Open Table 
Weta Unit Close Table 
OOP Simulation Coto 
Lacate For 
wontinue ( Locate next record) 
Set Filter To 


Delete Current Record (Mark for deletion; 
Pack 
| | ount 


Crystal Reports 10 | | Copy To 


Tools & Extensions 
Networking 


Lheck - End of Fila 


Lheck - Begin of File 

Get Becord Number 

Get Records COUN 

Lheck - Record Found (Locate) 
lS Record Marked for Deletion 


بعد هذه الخطوة سوف نذهب الان الى عك8۲0W‏ 


Class 


Lomponents Browser 


Components Browser 


Gomponents in Domain 


Spinner Class 
DatePicker Class 
LheckButton Class 


RicNEditBox Class 
rid Class 

Tab Class 

Tree Class 

Slider Class 
Frame Class 
HyperLink Class 
AnimateBox Class 


نلاحظ اننا لدینا 3 صفحات : 


Set Property ¬ 1 
Get Property — 2 
Invoke Method - 3 


| ProgressBar Class 
Timer Class 


Select Domain : 


5]... Mahmoud Pregramming Language 


Llser Interface‏ آ- 
Ê... GUI Application‏ ا 
Windows‏ 
E: Control‏ 
Events‏ 
Main Meru‏ 
Status Bar‏ 
Toolbar‏ 
Drawing‏ 
cte#,‏ 
Sound‏ 
Console Application‏ 
Print Text‏ 


Search 


تحن الان سوف كوم اقفل على التفخة الاولى 


Interaction Using Transporter 


Interaction USing TranSporter 


Browse Class - Set Properly 


Object Narne win 1 browses 1 


ale MYTEC 


Properties Requires Parameters 


Ll Header- Column 
۱ FontName 


کک ا 


ننتقل الان الى الصفحة الاخير وهي ٤e‏ vokہ1‏ 
Method‏ ولكي نجعل البرنامج ينتقل الى السجل 
الحالي 


Interaction Using Transporter 


Interaction USing TranSporter 


e 


Browse Class - Invoke Method 


Object Narne win 1 browses 1 
Ll Parameters ا‎ ٠> 


LolumnÃAutoFit 
LolumnsAutoFit 
ColumnsAutoFHH 


| Invoke Method ت‎ 


برمجة زر الحذف 
n‏ 


- ننتقل الان عزيزي القارىء الى زر حذفق سجل من 
قاعدة البيانات والذي سوف ينادي اجراء اسمه 
mydelete‏ عند الضغط على jڙر Delete R€C01d‏ 
فقي اول خطوة وهي 2۲٤۴2‏ أعzعا6ء‏ سوف نحدد 
الجدول الذي نعمل عليه واسمه ٣٤۷م‏ 


Interaction Using Transporter 


Select Area 


اسم قاعدة البيانات 


1 ا‎ 
TCO G 


بعد هذه الخطوة نريد الان معرفة قيمة السجل المحدد 
عن طریق ك5ئaا٥ Browse‏ 


Interaction, Using Transporter 


Interaction USing Transporter 


Browse Class - Get Properly 
Properties 


Object Hame win1 browses 1 
Yariable myrec اسح المتغير‎ 


Properlies Requires Parameters Width 
FontNamsa 
ْ کے‎ 0 


الان سوف نقوم بالانتقال الى المتفير ۳۷١١١‏ لكي 
نقوم بتحديد السجل 


Components Browser 


Select Domain : Components in Domain 


Data Linit selec Area 

El... Atoms Open Table 
LDamain Electrons list Close Table 
Virtual Data Files 


Stack J dueue Array Lorate For 


Continue ( Locate next record) 
N Get Filter To 


. Code Unit 1 
E Current Record (Mark for deletion} 


. OOP Simulation 
Count 


COPY To 
. Create Table Get Information 


ADODEB Recall 
Lock 


Search goto 


Interaction, Using Transporter 


Interaction USing Transporter 


E First Record 
Last Record 


Record NHurmber 


Lomponents Browser 


select Domain : 


Domain Electrons list | Open Table 
Virtual Data Files Close Table 
Stack Hueue Array Golo 
Vessels 
Reactions 


Lacate For 
Lontinule [ Locate next record) 


| Set Filter To 
. Veto Unit 


GOP Simulation 


Create Table 
ADOIDE 
. Connection 
RecaordSet 


rge 


Lomponents Browser 


Components Browser 


select Domain : Gomponents in Domain 
Structure Programming 1 Select Area 
Gbject Oriented Programming (OOP) Open Table 
Doubles (Super Server] Proegrammirvg Close Table 
00 
Lacate For 
Lontinue { Locate next record) 
EE Jarry Set Filter To 
1 Delete Current Record (Mark for deletion; 


Domain Electrons list 
Virtual Data Files 


ount 

WOpY T0 

tet Information 
Recall 


نقوم الان بانقاص سجل من المتغير ۳۷۲۴٤٥۲‏ بحيث بعد 
عملية الحذف ننتقل الى السجل السابق 


Campanents Browser 


Select Domain : Gamponenis in Domain 


MHumeric To String 
String To Numeric 
Date To String 

| | UPPER Case 
lower ase 
Get Date 
tet Timê 
ALL Trim 
Left Trim 
Right Trim 


Console Application 


4 Programming Basics Sub String 
ا إ‎ Control Structure Replicate String 
FF Vara bleê 8 Sub String Transform 


QERE OE. PO E e U E 


Interaction, Using Transporter 


Interaction USing Transporter 


Assignment 


Left Side 
Right Side 


Type 


Length of String 
Length of Numeric 


Interaction, Using Transporter 


Interaction USing Transporter 
8 


Browse Class - Set Property 


et Property Properties 


Object Name winî browses 1 
Yale [myrec] 


Properliies Requires Parameters 


LJ] Header- Column 


FontMName 


ا - 


الان سوق نقوم بعمل عملية تحديث S1عRef/r‏ 


Interaction, Using Transporter 


Interaction Using Transporter 
mecosenewmoouuesrewmororirin) 
Browse Class - Invoke Method 
Method cg 
Object Name 8 
سے‎ SetFocus 
Ll Parameters | 


Relsase 
LolumnÃutoFit 
LolumnsÃutoFit 
LolumnsAutoFHH 


E 


بقی لنا زر خروج وهو امر سھل جداا عن طریق 
a. window class‏ 
Interaction Using Transporter‏ 


| Windows Class - Invoke Mathocdl 
lnsoke Method Method 


Ubject N arme 


Î Pettitt 
اسح النافذة التي سوق‎ Minimize 
يتم اغاتقها‎ Aclivals 
Restore 


8 ا 
Again | Cancel‏ أ Invoke Method r‏ أ 


تم بحمد الله من برمجة كل الازرار مازال لنا ان نقوم 


بالتعديل على الفورم عن طريق مصمم النماذج 
Form Desinger‏ 


Kl RPWI Environment - Goal Designer - Form Designer 


Center Vertically ¥ | Horizontal Spacing | | Make equal | j ForeGolo 

EF 
To Tallest vl | Verical Spacing | | Make equal ب‎ | BackColor | ك‎ 
Zesizê Increase Width 3 Form | Form Designer | Form Designer | 


rowse1 Add New Record 
من خلال هذا المصمم بمكئنك‎ 
ے.‎ ١ آل ف , لانو اٿ‎ 
Delete Record oF ا ر‎ 
النافدة من خط وحجم ولون وبعد‎ 


كل التعديلات نضغط على زر 
حفظ 
Save‏ 


Close 


ج Rv‏ و ل الام وا الا 
التشيلك مى علامه التححب الموجودة قى شرط 


الأدوات 


M ProeanINEN without. tiie ply 


1 چ‎ El 


کڪ 

ا ك 

ج 

ص 
Programming without coding technology 1.4 [Nova] [2006-2009]‏ 

5 j URL : http://www. sourceforge. net/projecta/doublesvaoop 

= 

0 PFroqramming Language : Harmoud Programming Language 
Frogramming Environment : RPFWI { [R]Jeal [PFIrogramming [W]ithout cod [I]ng} 
Frogramming Paradigm : DoubleS {Super Server) 

س 

dM Compilers : Borland C/CH g Harbour/xHarbour 

- GUI Framework : HarkbourMiniGUI Extended 

o أ‎ 

أ = 

n 

ع 

N 

س 

٣ | 

© 

O 

= 

ی 

0 

کا 

_ 

whl 

أ 

Ready 


- هاهو البرنامج قد تم تشغيله بدون أخطاء الحمد لله 
على هذا النجاح مبروك عليك عزيزي القارىء لقد 
نجحت في برمجة اول برنامج يعتمد على قواعد 
البيانات بتقنية البرمحة بدون كود Progra ™i19‏ 
Without Coding Technology‏ 


mM Programming Without Coding 


Address 


Delete Record 


نشكره عز وجل على هذا التوفيق --- 


- في الأخير أتقدم بأحر التهاني للإخوة الكرام 

- الأخ الحبيب المهندس / محمود فايد 

أول من أرشدني إلى البرمجة بدون كود وكان ذلك تغيير جذري في 
حياتي البرمجية وطالما تعلمت منه الكثير 

- الأخ الكريم سامح كامل 

قدم لي عدة نصائح عندما كنت على أول طريق في البرمجة بدون 
كود وقد تعلمت منه الكثير بما يخص البرمجة بدون كود 

- الأخ العزيز أبو السعود 

صاحب الردود الجميلة التي تشجعني على المواصلة والتقدم الى 

الأمام نحو التقدم والنجاح آشکره کثیر اا 


تم بحمد الله 


1 يناير 2010 


كل الحفرق محفرظهة للگاٽب ام بین دپاپسد په ۰(۰ 


